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“some glare TERI RY TERT 


DENT = ‘'Vv04-000' t 


IN 
NSTAB ( ' Reach a colum mn 
i File: CHMINSTAB.BLI Edit: JBS1003 


BEGIN 


YRR RRR AAA AAA EREA RARER EAE EEE 
} 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 


H 1 0001 

a 0008 

: & 0004 

; 5 oboe 1 

; 8 4 1 

H 0007 1 

; 8 0008 1 

$ 9g 0009 1 ° BY * 
; 0010 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; \} Baty : :* ALL RIGHTS RESERVED. * 
; ; * 
: ig $01 1 !* THIS SOFTWARE IS ryan sree UNDER A LICENSE AND MAY BE USED AND COPIED * 
; «614 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS UCH LICENSE AND WITH THE * 
; WW 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR AN TH * 
3; 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
om 4 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 18 bos ; :* TRANSFERRED. " 
H :@ ° 
; @& 0020 1 !* jae gt yt IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3; 6) 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
H $$ 8266 : ‘ed CORPORATION. * 
; 'e * 
; 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Be -, Bos 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; @& 0026 1 !* * 
ea 0027 1 !* * 
: 28 0028 1 eae e eee eee 
; 9 0029 1! 

$ $6 $030 1 

7 0031 1 !++ : 

ae | B36 1! FACILITY: EDT -- The DEC Standard Editor 

. 0033 1! 

; | 4 0034 1 | ABSTRACT: 

; = 0035 1! 

7 0036 1! This module does (change mode) insertion of tabs and 

; $ i t4 : spaces to bring the cursor to a given column. 

F z 44 : ENVIRONMENT: Runs at any access mode - AST reentrant 

; $3 sad : AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

3 63 0043 1 ! MODIFIED CY: 

: 644 044 1! 

3; 645 045 1 | 1-001 - Original. DJS 04-Feb-1981. This module was created b 

; 6446 0046 1 | extracti ng the routine INSERT_TABS from module CHANGE .BL 

7 OF 0047 1 | 1-002 - Regularize headers. JBS 03-Mar-1981 

: 68 0048 1! 1-00 - Improve the appearance of the Listing. JBS 13-Jun-1983 

>; 49 0049 1! ie 


' EXTERNAL REFERENCES: 
In the routine 


H 16 
EDTSCHMINSTAB EDTSCHMINSTAB = reach a column 16-Sep-1984 00:02:53 VAX-11 Bliss-32 V4.0-742 Page 
v04-000 Declarations 12280871382 19:95:33 LEDT -SREICHMINS TAB OL 1 43 (2) 
2 051 1 &£SBTTL ‘Declarations’ 
5 3g 0034 1! 
; 4 0055 1 ! TABLE OF CONTENTS: 
3 5 6054 1! 
3 6 0055 (1 
3 57 Boge 1 REQUIRE ‘EDTSRC: TRAROUNAM'; 
co 0495 1 
bs 59 049 1 FORWARD ROUTINE 
; & 0497 1 EDTSSMOV_TOCOL; ! Insert tabs and spaces 
; 61 0498 1 
3 o¢ 0499 1! 
ee O 1 ! INCLUDE FILES: 
5; @& ee 
; ¢ 1 
: 3 : REQUIRE "EDTSRC:EDTREQ'; 
; 9 1! 
$ 0 1 ! MACROS: 
3 , of 
3 : NONE 
; : EQUATED SYMBOLS: 
3 : NONE 
P ' OWN STORAGE: 
; 1! NONE 
: 1! 
: 1} 
; 1: 
3 1! 


16 
EDTSCHMINSTAB EDTSCHMINSTAB = reach a column 1hese -1984 00:02: AxX-11 Bliss-32 V4.0-742 Page 
V04- EDTSSMOV_TOCOL = reach a column 1e-Sep-19 4 99:98:33 fet sre CHMINSTAB.BLI;1 " 
3 8 0686 } ZSBTTL ‘EDTSSMOV_TOCOL = reach a column’ 
3 8 be 3 1 GLOBAL ROUTINE EDTSSMOV_TOCOL ( ' Reach a column 
; & 0658 1 COUNT ! Number of columns to move 
; 0659 1 = 
; 0660 1 
; Wi 0661 1 !++ 
; BoP : FUNCTIONAL DESCRIPTION: 
; | «94 0664 1! This routine inserts enough tabs and spaces to bring us to the 
; oe 3092 } column specified by count. 
3 97 066 1 ! FORMAL PARAMETERS: 
;s 0668 1! 
; | 699 0669 1 ! COUNT Number of columns to move 
: 100 0670 1! 
s 101 0671 1 =! IMPLICIT INPUTS: 
Ie 0672 1! 
: 10 0673 1! NONE 
: 104 0674 1! 
; 105 0675 1 ! IMPLICIT OUTPUTS: 
: 106 0676 1! 
3 107 0677 1! NONE 
; 108 0678 1! 
; 109 0679 1 ! ROUTINE VALUE: 
: 110 0680 1! ; : : 
3 111 0681 1! 1 is returned if it succeeds, 0 if the Line overflows. 
s 12 0682 1! 
s 115 068 1 ! SIDE EFFECTS: 
: 61146 0684 1: 
3 6115 0685 1! NONE 
; 116 06 1! 
: 117 0687 1 !-- 
s 118 0688 1 
; 119 0689 2 BEGIN 
; 120 0690 2 
; 121 0691 : EXTERNAL ROUTINE 
3 \¢¢ Bop EDTSSINS_STR; ! Insert a string of characters at the current position 
3; 124 0694 '¢ 
s 125 0695 ! Insert count/8 tabs. 
: 126 0696 != 
: 44 0697 
4 } 3 4 INCR I FROM 1 TO (.COUNT/8) DO 
: 1$6 B09 IF (EDTSSINS_STR (UPLIT (ASC_K_TAB), 1) EQL 0) THEN RETURN (0); 
: 138 4 '¢ 
i 070 ! Insert count mod 8 spaces. 
3; «134 0704 !- 
3 135 0705 
. 136 me INCR I FROM 1 TO (.COUNT MOD 8) DO 
; 13 A IF (EDTSSINS_STR (UPLIT (* *), 1) EQL 0) THEN RETURN (0); 
: 140 0710 RETURN (1); : 
3; «(141 0711 #1 END; ! of routine EDTSSMOV_TOCOL 
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EDTSCHMINSTAB EDTSCHMINSTAB - h l 
¥04-600 EDT$ reacn a column 


1 
SMOV_TOCOL = reach a column 1 


-TITLE EDTSCHMINSTAB EDTSCHMINSTAB = reach l 
-IDENT \V04-000\ ach a column 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


»AAA: .LONG 9 ; 

P.AAB: .ASCII \ \<0><0><0> : 
-EXTRN EDTSSINS_STR 

sENTRY EDTSSMOV TOCOL 


MOVA EDTS$SINS_ST 
DIVL3 #8, COUNT, RS 
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04 00047 
3; Routine Size: 72 bytes, Routine Base: _EDTSCODE + 0008 


; 142 org 1 
143 0715 1 !<BLF/PAGE> 
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CHMINSTAB = reach a column 16-Sep-1984 99:9 753 VAX-11 gh at V4.0-742 Page 
0 14-Sep-1984 12:22:37 CEDT.SRCICHMINSTAB.BLI;1 


! of module EDTSCHMINSTAB 


PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 80 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Se ee te ee Ge 


Library Statistics 


Be hg ge) ee eee nen Symbols --<------ Pages Processing 

3 File Total Loaded Percent Mapped Time 

3 ~$255SDUA2B: [EDT SRCJEDT 32:1 377 1 0 40 00:00.2 

> _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

3 COMMAND QUALIFIERS 

; ST eee aa TIAL SPT IRIE) PRDTOASEOACEAL 1SH4 158s CHMINSTAR/OBJ 9ORUS: CHMINS TAR MSRC$: CHMINSTAB.BLI/UPDATE=(ENHS$:C 
Size: 72 code + 8 data bytes 
Run Time: 00:09. 


Elapsed Time: 00:11. 
Lines/CPU Min: 4401 
Lexemes/CPU-Min: 11920 
peneey Used: 62 pages 
Compilation Complete 
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